﻿Public Class paintbear_status

    Private Sub paintbear_status_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Paintbear-Status(Last Updated at: " & Date.Today & " - " & My.Computer.Clock.LocalTime.ToLongTimeString & ")"
    End Sub

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        Me.Close()
    End Sub

    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
        frmAbout.Show()
    End Sub

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        Me.Text = "Paintbear-Status(Last Updated at: " & Date.Today & " - " & My.Computer.Clock.LocalTime.ToLongTimeString & ")"
        MetroTracker1.Value = 0
        MetroTracker1.ValueTwo = 0
        MetroTracker1.ValueThree = 0

    End Sub
End Class